home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 4.3 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 34 3a 35 37 20 31 | 39 39 38 0a 3b 3b 3b 20 |:54:57 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 74 6c 2f 63 |s-20.3/l|isp/tl/c|
|000000a0| 68 61 72 2d 74 61 62 6c | 65 2e 65 6c 0a 3b 3b 3b |har-tabl|e.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n).. | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))). |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 63 68 61 72 2d 74 | (error |"`char-t|
|000001f0| 61 62 6c 65 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |able.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 28 72 | 65 71 75 69 72 65 20 27 |il))..(r|equire '|
|00000260| 6d 75 6c 65 29 0a 3b 3b | 3b 23 23 23 63 6f 64 69 |mule).;;|;###codi|
|00000270| 6e 67 20 73 79 73 74 65 | 6d 3a 20 65 73 63 61 70 |ng syste|m: escap|
|00000280| 65 2d 71 75 6f 74 65 64 | 0a 0a 28 64 65 66 61 6c |e-quoted|..(defal|
|00000290| 69 61 73 20 27 63 68 61 | 72 2d 70 6f 73 69 74 69 |ias 'cha|r-positi|
|000002a0| 6f 6e 2d 74 6f 2d 73 74 | 72 69 6e 67 20 23 5b 28 |on-to-st|ring #[(|
|000002b0| 63 68 61 72 73 65 74 20 | 72 20 6c 20 26 6f 70 74 |charset |r l &opt|
|000002c0| 69 6f 6e 61 6c 20 70 6c | 61 6e 65 29 20 22 c0 09 |ional pl|ane) "..|
|000002d0| ab 8c c2 0b 09 0c c5 5f | 1b 0e 06 5c 5c 23 aa 89 |......._|...\\#..|
|000002e0| c2 0b 0c c5 5f 1b 0e 06 | 5c 5c 5c 22 21 87 22 20 |...._...|\\\"!." |
|000002f0| 5b 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 |[char-to|-string |
|00000300| 70 6c 61 6e 65 20 6d 61 | 6b 65 2d 63 68 61 72 20 |plane ma|ke-char |
|00000310| 63 68 61 72 73 65 74 20 | 72 20 31 36 20 6c 5d 20 |charset |r 16 l] |
|00000320| 36 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |6]).(byt|e-code "|
|00000330| c0 c1 4e c2 73 ac 85 c3 | c4 c0 5c 22 88 c5 c0 c1 |..N.s...|..\"....|
|00000340| c6 23 87 22 20 5b 63 68 | 61 72 2d 70 6f 73 69 74 |.#." [ch|ar-posit|
|00000350| 69 6f 6e 2d 74 6f 2d 73 | 74 72 69 6e 67 20 62 79 |ion-to-s|tring by|
|00000360| 74 65 2d 6f 70 74 69 6d | 69 7a 65 72 20 28 6e 69 |te-optim|izer (ni|
|00000370| 6c 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |l byte-c|ompile-i|
|00000380| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 20 65 72 |nline-ex|pand) er|
|00000390| 72 6f 72 20 22 25 73 20 | 61 6c 72 65 61 64 79 20 |ror "%s |already |
|000003a0| 68 61 73 20 61 20 62 79 | 74 65 2d 6f 70 74 69 6d |has a by|te-optim|
|000003b0| 69 7a 65 72 2c 20 63 61 | 6e 27 74 20 6d 61 6b 65 |izer, ca|n't make|
|000003c0| 20 69 74 20 69 6e 6c 69 | 6e 65 22 20 70 75 74 20 | it inli|ne" put |
|000003d0| 62 79 74 65 2d 63 6f 6d | 70 69 6c 65 2d 69 6e 6c |byte-com|pile-inl|
|000003e0| 69 6e 65 2d 65 78 70 61 | 6e 64 5d 20 34 29 0a 28 |ine-expa|nd] 4).(|
|000003f0| 64 65 66 61 6c 69 61 73 | 20 27 63 68 61 72 2d 74 |defalias| 'char-t|
|00000400| 61 62 6c 65 2d 31 20 23 | 5b 28 63 68 61 72 73 65 |able-1 #|[(charse|
|00000410| 74 20 72 20 6c 20 70 6c | 61 6e 65 29 20 22 08 09 |t r l pl|ane) "..|
|00000420| 5c 6e 0b 1b 1b 1a 19 18 | c4 0b ab 8b c5 08 0b 09 |\n......|........|
|00000430| c6 5f 5c 6e 5c 5c 23 aa | 88 c5 08 09 c6 5f 5c 6e |._\n\\#.|....._\n|
|00000440| 5c 5c 5c 22 21 2c 1e 07 | c8 c9 1b 0e 07 21 5a 89 |\\\"!,..|.....!Z.|
|00000450| 1e 5c 6e cb a5 1e 0c cd | 1b 0e 5c 6e cb 5c 22 ce |.\n.....|..\n.\".|
|00000460| 55 ab 84 1b 0e 0c aa 83 | 1b 0e 0c 54 16 5c 6e cf |U.......|...T.\n.|
|00000470| 1b 0e 5c 6e d0 5c 22 1b | 0e 07 cf 1b 0e 0c d0 5c |..\n.\".|.......\|
|00000480| 22 51 2b 87 22 20 5b 63 | 68 61 72 73 65 74 20 72 |"Q+." [c|harset r|
|00000490| 20 6c 20 70 6c 61 6e 65 | 20 63 68 61 72 2d 74 6f | l plane| char-to|
|000004a0| 2d 73 74 72 69 6e 67 20 | 6d 61 6b 65 2d 63 68 61 |-string |make-cha|
|000004b0| 72 20 31 36 20 73 74 72 | 20 33 20 73 74 72 69 6e |r 16 str| 3 strin|
|000004c0| 67 2d 77 69 64 74 68 20 | 6c 70 20 32 20 72 70 20 |g-width |lp 2 rp |
|000004d0| 6d 6f 64 20 30 20 6d 61 | 6b 65 2d 73 74 72 69 6e |mod 0 ma|ke-strin|
|000004e0| 67 20 3f 5c 20 5d 20 37 | 5d 29 0a 28 62 79 74 65 |g ?\ ] 7|]).(byte|
|000004f0| 2d 63 6f 64 65 20 22 c0 | c1 4e c2 73 ac 85 c3 c4 |-code ".|.N.s....|
|00000500| c0 5c 22 88 c5 c0 c1 c6 | 23 87 22 20 5b 63 68 61 |.\".....|#." [cha|
|00000510| 72 2d 74 61 62 6c 65 2d | 31 20 62 79 74 65 2d 6f |r-table-|1 byte-o|
|00000520| 70 74 69 6d 69 7a 65 72 | 20 28 6e 69 6c 20 62 79 |ptimizer| (nil by|
|00000530| 74 65 2d 63 6f 6d 70 69 | 6c 65 2d 69 6e 6c 69 6e |te-compi|le-inlin|
|00000540| 65 2d 65 78 70 61 6e 64 | 29 20 65 72 72 6f 72 20 |e-expand|) error |
|00000550| 22 25 73 20 61 6c 72 65 | 61 64 79 20 68 61 73 20 |"%s alre|ady has |
|00000560| 61 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |a byte-o|ptimizer|
|00000570| 2c 20 63 61 6e 27 74 20 | 6d 61 6b 65 20 69 74 20 |, can't |make it |
|00000580| 69 6e 6c 69 6e 65 22 20 | 70 75 74 20 62 79 74 65 |inline" |put byte|
|00000590| 2d 63 6f 6d 70 69 6c 65 | 2d 69 6e 6c 69 6e 65 2d |-compile|-inline-|
|000005a0| 65 78 70 61 6e 64 5d 20 | 34 29 0a 28 64 65 66 61 |expand] |4).(defa|
|000005b0| 6c 69 61 73 20 27 69 6e | 73 65 72 74 2d 39 34 2d |lias 'in|sert-94-|
|000005c0| 63 68 61 72 73 65 74 2d | 74 61 62 6c 65 20 23 5b |charset-|table #[|
|000005d0| 28 63 68 61 72 73 65 74 | 20 26 6f 70 74 69 6f 6e |(charset| &option|
|000005e0| 61 6c 20 70 6c 61 6e 65 | 20 6f 66 73 29 20 22 08 |al plane| ofs) ".|
|000005f0| ac 82 c1 10 c2 c3 0c ae | 81 c1 5c 22 63 88 c5 63 |........|..\"c..c|
|00000600| 88 c6 1e 07 c2 c8 0c ae | 81 c1 1b 0e 07 08 5c 5c |........|......\\|
|00000610| c9 5f 23 63 88 ca 1e 0b | ca c9 57 ab f4 1b 0e 0c |._#c....|..W.....|
|00000620| 1b 0e 07 1b 0e 0b 0c 1c | 1e 0d 1e 1b 0e 89 1e 0c |........|........|
|00000630| 1b 0e 1b 0e 1b 0e 0d 0c | 1c 1e 0d 1e 1b 0e 1e 0c |........|........|
|00000640| cf 0c ab 8e d0 1b 0e 0c | 0c 1b 0e 1b 0e c9 5f 1b |........|......_.|
|00000650| 0e 0d 5c 5c 23 aa 8b d0 | 1b 0e 0c 1b 0e 1b 0e c9 |..\\#...|........|
|00000660| 5f 1b 0e 0d 5c 5c 5c 22 | 21 2c 1e 11 d2 d3 1b 0e |_...\\\"|!,......|
|00000670| 11 21 5a 89 1e 14 c6 a5 | 1e 15 d6 1b 0e 14 c6 5c |.!Z.....|.......\|
|00000680| 22 c1 55 ab 84 1b 0e 15 | aa 83 1b 0e 15 54 16 14 |".U.....|.....T..|
|00000690| d7 1b 0e 14 d8 5c 22 1b | 0e 11 d7 1b 0e 15 d8 5c |.....\".|.......\|
|000006a0| 22 51 2e 07 63 88 1b 0e | 0b 54 89 16 0b aa 08 d9 |"Q..c...|.T......|
|000006b0| 63 88 29 d2 16 07 d2 da | 57 83 44 01 c2 db 0c ae |c.).....|W.D.....|
|000006c0| 81 c1 1b 0e 07 08 5c 5c | c9 5f 23 63 88 c1 1e 0b |......\\|._#c....|
|000006d0| c1 c9 57 ab f4 1b 0e 0c | 1b 0e 07 1b 0e 0b 0c 1c |..W.....|........|
|000006e0| 1e 0d 1e 1b 0e 89 1e 0c | 1b 0e 1b 0e 1b 0e 0d 0c |........|........|
|000006f0| 1c 1e 0d 1e 1b 0e 1e 0c | cf 0c ab 8e d0 1b 0e 0c |........|........|
|00000700| 0c 1b 0e 1b 0e c9 5f 1b | 0e 0d 5c 5c 23 aa 8b d0 |......_.|..\\#...|
|00000710| 1b 0e 0c 1b 0e 1b 0e c9 | 5f 1b 0e 0d 5c 5c 5c 22 |........|_...\\\"|
|00000720| 21 2c 1e 11 d2 d3 1b 0e | 11 21 5a 89 1e 14 c6 a5 |!,......|.!Z.....|
|00000730| 1e 15 d6 1b 0e 14 c6 5c | 22 c1 55 ab 84 1b 0e 15 |.......\|".U.....|
|00000740| aa 83 1b 0e 15 54 16 14 | d7 1b 0e 14 d8 5c 22 1b |.....T..|.....\".|
|00000750| 0e 11 d7 1b 0e 15 d8 5c | 22 51 2e 07 63 88 1b 0e |.......\|"Q..c...|
|00000760| 0b 54 89 16 0b aa 08 d9 | 63 88 29 1b 0e 07 54 89 |.T......|c.)...T.|
|00000770| 16 07 82 a7 00 c2 db 0c | ae 81 c1 1b 0e 07 08 5c |........|.......\|
|00000780| 5c c9 5f 23 63 88 c1 1e | 0b c1 dc 57 ab f4 1b 0e |\._#c...|...W....|
|00000790| 0c 1b 0e 07 1b 0e 0b 0c | 1c 1e 0d 1e 1b 0e 89 1e |........|........|
|000007a0| 0c 1b 0e 1b 0e 1b 0e 0d | 0c 1c 1e 0d 1e 1b 0e 1e |........|........|
|000007b0| 0c cf 0c ab 8e d0 1b 0e | 0c 0c 1b 0e 1b 0e c9 5f |........|......._|
|000007c0| 1b 0e 0d 5c 5c 23 aa 8b | d0 1b 0e 0c 1b 0e 1b 0e |...\\#..|........|
|000007d0| c9 5f 1b 0e 0d 5c 5c 5c | 22 21 2c 1e 11 d2 d3 1b |._...\\\|"!,.....|
|000007e0| 0e 11 21 5a 89 1e 14 c6 | a5 1e 15 d6 1b 0e 14 c6 |..!Z....|........|
|000007f0| 5c 22 c1 55 ab 84 1b 0e | 15 aa 83 1b 0e 15 54 16 |\".U....|......T.|
|00000800| 14 d7 1b 0e 14 d8 5c 22 | 1b 0e 11 d7 1b 0e 15 d8 |......\"|........|
|00000810| 5c 22 51 2e 07 63 88 1b | 0e 0b 54 89 16 0b aa 08 |\"Q..c..|..T.....|
|00000820| d9 63 2a 87 22 20 5b 6f | 66 73 20 30 20 66 6f 72 |.c*." [o|fs 0 for|
|00000830| 6d 61 74 20 22 5b 25 30 | 32 78 5d 1b 24 28 42 28 |mat "[%0|2x].$(B(|
|00000840| 22 1b 28 42 20 30 30 20 | 30 31 20 30 32 20 30 33 |".(B 00 |01 02 03|
|00000850| 20 30 34 20 30 35 20 30 | 36 20 30 37 20 30 38 20 | 04 05 0|6 07 08 |
|00000860| 30 39 20 30 41 20 30 42 | 20 30 43 20 30 44 20 30 |09 0A 0B| 0C 0D 0|
|00000870| 45 20 30 46 5c 6e 22 20 | 70 6c 61 6e 65 20 22 1b |E 0F\n" |plane ".|
|00000880| 24 28 42 28 21 28 21 28 | 2b 28 21 28 21 28 21 28 |$(B(!(!(|+(!(!(!(|
|00000890| 21 28 21 28 21 28 21 28 | 21 28 21 28 21 28 21 28 |!(!(!(!(|!(!(!(!(|
|000008a0| 21 28 21 28 21 28 21 28 | 21 28 21 28 21 28 21 28 |!(!(!(!(|!(!(!(!(|
|000008b0| 21 28 21 28 21 28 21 28 | 21 1b 28 42 5c 6e 22 20 |!(!(!(!(|!.(B\n" |
|000008c0| 32 20 6a 20 22 25 30 32 | 78 25 78 1b 24 28 42 28 |2 j "%02|x%x.$(B(|
|000008d0| 22 1b 28 42 20 20 20 22 | 20 31 36 20 31 20 6b 20 |".(B "| 16 1 k |
|000008e0| 63 68 61 72 73 65 74 20 | 6c 20 72 20 63 68 61 72 |charset |l r char|
|000008f0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 6d 61 6b 65 2d |-to-stri|ng make-|
|00000900| 63 68 61 72 20 73 74 72 | 20 33 20 73 74 72 69 6e |char str| 3 strin|
|00000910| 67 2d 77 69 64 74 68 20 | 6c 70 20 72 70 20 6d 6f |g-width |lp rp mo|
|00000920| 64 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 3f 5c |d make-s|tring ?\|
|00000930| 20 20 22 5c 6e 22 20 37 | 20 22 25 30 32 78 25 78 | "\n" 7| "%02x%x|
|00000940| 1b 24 28 42 28 22 1b 28 | 42 22 20 31 35 5d 20 38 |.$(B(".(|B" 15] 8|
|00000950| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 69 6e |]).(defa|lias 'in|
|00000960| 73 65 72 74 2d 39 36 2d | 63 68 61 72 73 65 74 2d |sert-96-|charset-|
|00000970| 74 61 62 6c 65 20 23 5b | 28 63 68 61 72 73 65 74 |table #[|(charset|
|00000980| 20 26 6f 70 74 69 6f 6e | 61 6c 20 70 6c 61 6e 65 | &option|al plane|
|00000990| 20 6f 66 73 29 20 22 08 | ac 82 c1 10 c2 c3 0c ae | ofs) ".|........|
|000009a0| 81 c1 5c 22 63 88 c5 63 | 88 c6 1e 07 c6 c8 57 85 |..\"c..c|......W.|
|000009b0| b2 00 c2 c9 0c ae 81 c1 | 1b 0e 07 08 5c 5c ca 5f |........|....\\._|
|000009c0| 23 63 88 c1 1e 0b c1 ca | 57 ab f4 1b 0e 0c 1b 0e |#c......|W.......|
|000009d0| 07 1b 0e 0b 0c 1c 1e 0d | 1e 1b 0e 89 1e 0c 1b 0e |........|........|
|000009e0| 1b 0e 1b 0e 0d 0c 1c 1e | 0d 1e 1b 0e 1e 0c cf 0c |........|........|
|000009f0| ab 8e d0 1b 0e 0c 0c 1b | 0e 1b 0e ca 5f 1b 0e 0d |........|...._...|
|00000a00| 5c 5c 23 aa 8b d0 1b 0e | 0c 1b 0e 1b 0e ca 5f 1b |\\#.....|......_.|
|00000a10| 0e 0d 5c 5c 5c 22 21 2c | 1e 11 d2 d3 1b 0e 11 21 |..\\\"!,|.......!|
|00000a20| 5a 89 1e 14 c6 a5 1e 15 | d6 1b 0e 14 c6 5c 22 c1 |Z.......|.....\".|
|00000a30| 55 ab 84 1b 0e 15 aa 83 | 1b 0e 15 54 16 14 d7 1b |U.......|...T....|
|00000a40| 0e 14 d8 5c 22 1b 0e 11 | d7 1b 0e 15 d8 5c 22 51 |...\"...|.....\"Q|
|00000a50| 2e 07 63 88 1b 0e 0b 54 | 89 16 0b aa 08 d9 63 88 |..c....T|......c.|
|00000a60| 29 1b 0e 07 54 89 16 07 | 82 15 00 29 87 22 20 5b |)...T...|...)." [|
|00000a70| 6f 66 73 20 30 20 66 6f | 72 6d 61 74 20 22 5b 25 |ofs 0 fo|rmat "[%|
|00000a80| 30 32 78 5d 1b 24 28 42 | 28 22 1b 28 42 20 30 30 |02x].$(B|(".(B 00|
|00000a90| 20 30 31 20 30 32 20 30 | 33 20 30 34 20 30 35 20 | 01 02 0|3 04 05 |
|00000aa0| 30 36 20 30 37 20 30 38 | 20 30 39 20 30 41 20 30 |06 07 08| 09 0A 0|
|00000ab0| 42 20 30 43 20 30 44 20 | 30 45 20 30 46 5c 6e 22 |B 0C 0D |0E 0F\n"|
|00000ac0| 20 70 6c 61 6e 65 20 22 | 1b 24 28 42 28 21 28 21 | plane "|.$(B(!(!|
|00000ad0| 28 2b 28 21 28 21 28 21 | 28 21 28 21 28 21 28 21 |(+(!(!(!|(!(!(!(!|
|00000ae0| 28 21 28 21 28 21 28 21 | 28 21 28 21 28 21 28 21 |(!(!(!(!|(!(!(!(!|
|00000af0| 28 21 28 21 28 21 28 21 | 28 21 28 21 28 21 28 21 |(!(!(!(!|(!(!(!(!|
|00000b00| 28 21 1b 28 42 5c 6e 22 | 20 32 20 6a 20 38 20 22 |(!.(B\n"| 2 j 8 "|
|00000b10| 25 30 32 78 25 78 1b 24 | 28 42 28 22 1b 28 42 22 |%02x%x.$|(B(".(B"|
|00000b20| 20 31 36 20 6b 20 63 68 | 61 72 73 65 74 20 6c 20 | 16 k ch|arset l |
|00000b30| 72 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |r char-t|o-string|
|00000b40| 20 6d 61 6b 65 2d 63 68 | 61 72 20 73 74 72 20 33 | make-ch|ar str 3|
|00000b50| 20 73 74 72 69 6e 67 2d | 77 69 64 74 68 20 6c 70 | string-|width lp|
|00000b60| 20 72 70 20 6d 6f 64 20 | 6d 61 6b 65 2d 73 74 72 | rp mod |make-str|
|00000b70| 69 6e 67 20 3f 5c 20 20 | 22 5c 6e 22 5d 20 38 5d |ing ?\ |"\n"] 8]|
|00000b80| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 69 6e 73 |).(defal|ias 'ins|
|00000b90| 65 72 74 2d 39 34 78 39 | 34 2d 63 68 61 72 73 65 |ert-94x9|4-charse|
|00000ba0| 74 2d 74 61 62 6c 65 20 | 23 5b 28 63 68 61 72 73 |t-table |#[(chars|
|00000bb0| 65 74 29 20 22 c0 09 c2 | 5c 22 88 c3 1c c3 c5 57 |et) "...|\".....W|
|00000bc0| ad 8e c6 63 88 c0 09 0c | 5c 22 88 0c 54 89 14 aa |...c....|\"..T...|
|00000bd0| 6e 29 87 22 20 5b 69 6e | 73 65 72 74 2d 39 34 2d |n)." [in|sert-94-|
|00000be0| 63 68 61 72 73 65 74 2d | 74 61 62 6c 65 20 63 68 |charset-|table ch|
|00000bf0| 61 72 73 65 74 20 33 33 | 20 33 34 20 69 20 31 32 |arset 33| 34 i 12|
|00000c00| 37 20 22 1b 24 28 42 28 | 2c 28 2c 28 3b 28 2c 28 |7 ".$(B(|,(,(;(,(|
|00000c10| 2c 28 2c 28 2c 28 2c 28 | 2c 28 2c 28 2c 28 2c 28 |,(,(,(,(|,(,(,(,(|
|00000c20| 2c 28 2c 28 2c 28 2c 28 | 2c 28 2c 28 2c 28 2c 28 |,(,(,(,(|,(,(,(,(|
|00000c30| 2c 28 2c 28 2c 28 2c 28 | 2c 28 2c 28 2c 1b 28 42 |,(,(,(,(|,(,(,.(B|
|00000c40| 5c 6e 22 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |\n"] 4])|.(defali|
|00000c50| 61 73 20 27 69 6e 73 65 | 72 74 2d 39 36 78 39 36 |as 'inse|rt-96x96|
|00000c60| 2d 63 68 61 72 73 65 74 | 2d 74 61 62 6c 65 20 23 |-charset|-table #|
|00000c70| 5b 28 63 68 61 72 73 65 | 74 29 20 22 c0 09 c2 5c |[(charse|t) "...\|
|00000c80| 22 88 c3 1c c3 c5 57 ad | 8e c6 63 88 c0 09 0c 5c |".....W.|..c....\|
|00000c90| 22 88 0c 54 89 14 aa 6e | 29 87 22 20 5b 69 6e 73 |"..T...n|)." [ins|
|00000ca0| 65 72 74 2d 39 36 2d 63 | 68 61 72 73 65 74 2d 74 |ert-96-c|harset-t|
|00000cb0| 61 62 6c 65 20 63 68 61 | 72 73 65 74 20 33 32 20 |able cha|rset 32 |
|00000cc0| 33 33 20 69 20 31 32 38 | 20 22 1b 24 28 42 28 2c |33 i 128| ".$(B(,|
|00000cd0| 28 2c 28 3b 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(;(,(,|(,(,(,(,|
|00000ce0| 28 2c 28 2c 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(,(,(,|(,(,(,(,|
|00000cf0| 28 2c 28 2c 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(,(,(,|(,(,(,(,|
|00000d00| 28 2c 28 2c 1b 28 42 5c | 6e 22 5d 20 34 5d 29 0a |(,(,.(B\|n"] 4]).|
|00000d10| 28 64 65 66 61 6c 69 61 | 73 20 27 69 6e 73 65 72 |(defalia|s 'inser|
|00000d20| 74 2d 63 68 61 72 73 65 | 74 2d 74 61 62 6c 65 20 |t-charse|t-table |
|00000d30| 23 5b 28 63 68 61 72 73 | 65 74 29 20 22 c0 63 88 |#[(chars|et) ".c.|
|00000d40| c1 5c 6e 21 c3 5c 6e 21 | 1c 1d 0c c6 55 ab 96 0d |.\n!.\n!|....U...|
|00000d50| c7 55 ab 86 c8 5c 6e 21 | 88 aa a4 0d c9 55 ab 9f |.U...\n!|.....U..|
|00000d60| ca 5c 6e 21 88 aa 99 0c | cb 55 ab 94 0d c7 55 ab |.\n!....|.U....U.|
|00000d70| 86 cc 5c 6e 21 88 aa 89 | 0d c9 55 ab 84 cd 5c 6e |..\n!...|..U...\n|
|00000d80| 21 88 2a ce 63 87 22 20 | 5b 22 1b 24 28 42 28 2c |!.*.c." |[".$(B(,|
|00000d90| 28 2c 28 38 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(8(,(,|(,(,(,(,|
|00000da0| 28 2c 28 2c 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(,(,(,|(,(,(,(,|
|00000db0| 28 2c 28 2c 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(,(,(,|(,(,(,(,|
|00000dc0| 28 2c 28 2c 1b 28 42 5c | 6e 22 20 63 68 61 72 73 |(,(,.(B\|n" chars|
|00000dd0| 65 74 2d 63 68 61 72 73 | 20 63 68 61 72 73 65 74 |et-chars| charset|
|00000de0| 20 63 68 61 72 73 65 74 | 2d 64 69 6d 65 6e 73 69 | charset|-dimensi|
|00000df0| 6f 6e 20 63 64 20 63 63 | 20 31 20 39 34 20 69 6e |on cd cc| 1 94 in|
|00000e00| 73 65 72 74 2d 39 34 2d | 63 68 61 72 73 65 74 2d |sert-94-|charset-|
|00000e10| 74 61 62 6c 65 20 39 36 | 20 69 6e 73 65 72 74 2d |table 96| insert-|
|00000e20| 39 36 2d 63 68 61 72 73 | 65 74 2d 74 61 62 6c 65 |96-chars|et-table|
|00000e30| 20 32 20 69 6e 73 65 72 | 74 2d 39 34 78 39 34 2d | 2 inser|t-94x94-|
|00000e40| 63 68 61 72 73 65 74 2d | 74 61 62 6c 65 20 69 6e |charset-|table in|
|00000e50| 73 65 72 74 2d 39 36 78 | 39 36 2d 63 68 61 72 73 |sert-96x|96-chars|
|00000e60| 65 74 2d 74 61 62 6c 65 | 20 22 1b 24 28 42 28 2c |et-table| ".$(B(,|
|00000e70| 28 2c 28 3a 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(:(,(,|(,(,(,(,|
|00000e80| 28 2c 28 2c 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(,(,(,|(,(,(,(,|
|00000e90| 28 2c 28 2c 28 2c 28 2c | 28 2c 28 2c 28 2c 28 2c |(,(,(,(,|(,(,(,(,|
|00000ea0| 28 2c 28 2c 1b 28 42 5c | 6e 22 5d 20 33 20 22 5c |(,(,.(B\|n"] 3 "\|
|00000eb0| 0a 49 6e 73 65 72 74 20 | 63 68 61 72 61 63 74 65 |.Insert |characte|
|00000ec0| 72 20 74 61 62 6c 65 20 | 6f 66 20 43 48 41 52 53 |r table |of CHARS|
|00000ed0| 45 54 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ET."]).(|defalias|
|00000ee0| 20 27 76 69 65 77 2d 63 | 68 61 72 73 65 74 20 23 | 'view-c|harset #|
|00000ef0| 5b 28 63 68 61 72 73 65 | 74 29 20 22 c0 09 21 1a |[(charse|t) "..!.|
|00000f00| c3 c0 09 21 c4 51 1d c6 | 0d 21 ac b1 70 1e 07 c8 |...!.Q..|.!..p...|
|00000f10| 0d 21 71 88 c9 ca 5c 6e | 09 23 63 88 c9 cb 5c 6e |.!q...\n|.#c...\n|
|00000f20| 5c 22 1e 0c cd 1b 0e 0c | 21 88 ce 09 21 88 cd cf |\"......|!...!...|
|00000f30| 1b 0e 0c 5c 22 88 29 d0 | d1 21 88 65 62 88 1b 0e |...\".).|.!.eb...|
|00000f40| 07 71 88 29 d2 0d 21 2a | 87 22 20 5b 63 68 61 72 |.q.)..!*|." [char|
|00000f50| 73 65 74 2d 64 6f 63 2d | 73 74 72 69 6e 67 20 63 |set-doc-|string c|
|00000f60| 68 61 72 73 65 74 20 64 | 65 73 63 20 22 2a 43 68 |harset d|esc "*Ch|
|00000f70| 61 72 73 65 74 20 74 61 | 62 6c 65 20 66 6f 72 20 |arset ta|ble for |
|00000f80| 22 20 22 2a 22 20 62 75 | 66 20 67 65 74 2d 62 75 |" "*" bu|f get-bu|
|00000f90| 66 66 65 72 20 74 68 65 | 2d 62 75 66 20 67 65 74 |ffer the|-buf get|
|00000fa0| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 66 |-buffer-|create f|
|00000fb0| 6f 72 6d 61 74 20 22 25 | 73 20 28 25 73 29 5c 6e |ormat "%|s (%s)\n|
|00000fc0| 22 20 22 47 65 6e 65 72 | 61 74 69 6e 67 20 63 68 |" "Gener|ating ch|
|00000fd0| 61 72 20 74 61 62 6c 65 | 20 66 6f 72 20 25 73 2e |ar table| for %s.|
|00000fe0| 2e 2e 22 20 6d 73 67 20 | 6d 65 73 73 61 67 65 20 |.." msg |message |
|00000ff0| 69 6e 73 65 72 74 2d 63 | 68 61 72 73 65 74 2d 74 |insert-c|harset-t|
|00001000| 61 62 6c 65 20 22 25 73 | 20 44 6f 6e 65 2e 22 20 |able "%s| Done." |
|00001010| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00001020| 69 65 64 2d 70 20 6e 69 | 6c 20 76 69 65 77 2d 62 |ied-p ni|l view-b|
|00001030| 75 66 66 65 72 5d 20 34 | 20 22 5c 0a 44 69 73 70 |uffer] 4| "\.Disp|
|00001040| 6c 61 79 20 63 68 61 72 | 61 63 74 65 72 20 74 61 |lay char|acter ta|
|00001050| 62 6c 65 20 6f 66 20 43 | 48 41 52 53 45 54 2e 22 |ble of C|HARSET."|
|00001060| 20 28 6c 69 73 74 20 28 | 6c 65 74 20 28 28 63 68 | (list (|let ((ch|
|00001070| 61 72 73 65 74 2d 61 6c | 69 73 74 20 28 6d 61 70 |arset-al|ist (map|
|00001080| 63 61 72 20 28 66 75 6e | 63 74 69 6f 6e 20 28 6c |car (fun|ction (l|
|00001090| 61 6d 62 64 61 20 28 63 | 68 61 72 73 65 74 29 20 |ambda (c|harset) |
|000010a0| 28 63 6f 6e 73 20 28 63 | 68 61 72 73 65 74 2d 64 |(cons (c|harset-d|
|000010b0| 6f 63 2d 73 74 72 69 6e | 67 20 63 68 61 72 73 65 |oc-strin|g charse|
|000010c0| 74 29 20 63 68 61 72 73 | 65 74 29 29 29 20 28 63 |t) chars|et))) (c|
|000010d0| 68 61 72 73 65 74 2d 6c | 69 73 74 29 29 29 29 20 |harset-l|ist)))) |
|000010e0| 28 63 64 72 20 28 61 73 | 73 6f 63 20 28 63 6f 6d |(cdr (as|soc (com|
|000010f0| 70 6c 65 74 69 6e 67 2d | 72 65 61 64 20 22 57 68 |pleting-|read "Wh|
|00001100| 61 74 20 63 68 61 72 73 | 65 74 3a 20 22 20 63 68 |at chars|et: " ch|
|00001110| 61 72 73 65 74 2d 61 6c | 69 73 74 20 6e 69 6c 20 |arset-al|ist nil |
|00001120| 74 20 6e 69 6c 29 20 63 | 68 61 72 73 65 74 2d 61 |t nil) c|harset-a|
|00001130| 6c 69 73 74 29 29 29 29 | 5d 29 0a 28 70 72 6f 76 |list))))|]).(prov|
|00001140| 69 64 65 20 27 63 68 61 | 72 2d 74 61 62 6c 65 29 |ide 'cha|r-table)|
|00001150| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+
